home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
win_utl2
/
pspa370a.zip
/
EXAMPL19.POM
< prev
next >
Wrap
Text File
|
1996-04-26
|
2KB
|
66 lines
OUTEND |SAMPLE DATE FORMATTING, USING TODAY'S DATE AND JULY 3 1998
OUTEND |----------------------------------------------------------
SET year = "1998"
SET month = "7"
SET day = "3"
;
; In the first example, we see that the date format can be omitted, or
; can be set to null. Either method invokes the use of the default date
; format string, obtained from the POMDATE.CFG file.
;
SET format = ""
TODAY x
DATE y year month day ""
OUTEND |
OUTEND |Date Format String: Default date format
OUTEND | Today's Date: {x}
OUTEND | July 3 1998: {y}
SET format = "?n-?d-?y"
TODAY x format
DATE y year month day format
OUTEND |
OUTEND |Date Format String: "{format}"
OUTEND | Today's Date: {x}
OUTEND | July 3 1998: {y}
SET format = "d.M.Y"
TODAY x format
DATE y year month day format
OUTEND |
OUTEND |Date Format String: "{format}"
OUTEND | Today's Date: {x}
OUTEND | July 3 1998: {y}
SET format = "t d 'y"
TODAY x format
DATE y year month day format
OUTEND |
OUTEND |Date Format String: "{format}"
OUTEND | Today's Date: {x}
OUTEND | July 3 1998: {y}
SET format = "(m ?d Y)"
TODAY x format
DATE y year month day format
OUTEND |
OUTEND |Date Format String: "{format}"
OUTEND | Today's Date: {x}
OUTEND | July 3 1998: {y}
SET format = "M/?d/Y"
TODAY x format
DATE y year month day format
OUTEND |
OUTEND |Date Format String: "{format}"
OUTEND | Today's Date: {x}
OUTEND | July 3 1998: {y}
;
; Since we only want this POM file to be run once (i.e. on a single input
; line), we do a NEXTFILE to stop processing the input file. We could
; have used HALT, but that would generate an "Halt Message" display,
; which we don't need.
;
NEXTFILE